home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z7.d64 / func.binary$ < prev    next >
Text File  |  2009-01-03  |  284b  |  13 lines

  1. 1010 ╞╒╬├ BINARY$(NUM) ├╠╧╙┼─
  2. 1020   ─╔═ OUT'PUT$ ╧╞ 8
  3. 1030   OUT'PUT$:=""
  4. 1040   ╞╧╥ X:=7 ╘╧ 0 ╙╘┼╨ -1 ─╧
  5. 1050     ╔╞ NUM ┬╔╘┴╬─ 2^X ╘╚┼╬
  6. 1060       OUT'PUT$:+"1"
  7. 1070     ┼╠╙┼ 
  8. 1080       OUT'PUT$:+"0"
  9. 1090     ┼╬─╔╞ 
  10. 1100   ┼╬─╞╧╥ X
  11. 1110   ╥┼╘╒╥╬ "%"+OUT'PUT$
  12. 1120 ┼╬─╞╒╬├ BINARY$
  13.